﻿#目前用户读取surveyid

sub readLine
{	
	#获取文件名脚本目录下额全路径
	my ($filename) = @_;
	unless(open READ,"$filename"){
		die "Can't open $filename \n";
	}
	my @eachline = <READ>;
	close READ;
	
	my @eachline1;
	for(@eachline){
		chomp($_);
		push @eachline1,$_ unless($_ =~ /^#/);
	}

	return @eachline1;
}

1;